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4051 Interfaces with FACIT Paper Tape Punch and Reader 



By Han Kllnkspoor, Tektronix Datatek 
Badhoevedorp, The Netherlands 

Regardless of what you may hear about the 
decline of paper tape usage, the fact remains that 
paper tape is still widely used for data collection, 
machine control and as a stable, convenient storage 
medium. After talking with several 4051 users here in 
Europe, we realized there was a definite need for a 
convenient method of connecting papertape handl- 
ing equipment to the 4051. 

As a result of this decision, FACIT Company of 
Sweden, in cooperation with Tektronix in Europe, 
developed a GPIB interface for their high speed 
paper tape equipment. This interface makes it 
possible to read and punch paper tapes with the 
4051 via the 4051 GPIB port. 

FACIT is currently offering the GPIB interface on 
two devices: the Model 4070 paper tape punch and 
the Model 4021 paper tape reader. The Model 4070 
punches 8-bit paper tapes at up to 75 characters/se- 
cond. The Model 4021 reads up to 300 
characters/second in both directions. Since the 
4021 reads 8-bit coded paper tape, it can read 
virtually any paper tape either via ASCII or Binary, or 
via low level RBYTE I/O commands. 

4051 -based systems using this equipment are 
successfully running in several application areas. 



The Dutch land registry office uses a 4051 and 
graphic tablet (4956 Option 33) to digitize and store 
maps from tablet to paper tape. This tape is process- 
ed by a minicomputer producing a paper tape that is 
fed into the 4051 again for making graphs. One of the 
reasons for using paper tape as a medium in this 
application is that several remote digitizing stations 
supply paper tapes for one existing paper tape- 
based central processing mini. Reliable, long term 
data storage was also a consideration. 

Another interesting application of this 4051- 
paper tape combination is a 4051-based medical 
system used to do radioimmunoassay analysis. The 
decision in this case to purchase paper tape equip- 
ment for use with the 4051 was based on the fact that 
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the existing equipment produces paper tape. The 
4051 does the analysis and graphs results on the 
4662 plotter with a previewing option for the screen. 

A third system using this paper tape option is a 
typical previewing application. Herea4051 Option 1 
is used to download files from a Control Data 
Corporation Cyber mainframe that contains data to 
control numerical control machines. A preview is 
done on the 4051 screen and if this is found to be 
correct, a paper tape is produced to feed into the 
NC-tool. If editing is needed, interaction with the 
host is initiated to produce an updated file. 

These applications show that sometimes it is 
necessary to have a paper tape "In-between". Hav- 
ing the FACIT equipment available allows you to fit 
the 4051 into environments where paper tape is one 
of the elements. 

Operation of the FACIT devices is straight- 
forward with the 4051 I/O commands: (punch at 
primary address 3; reader at 2) 

Programs: 
SAUE 13: 
LIST 921 

OLD taae: 
APPEND f2,i6:i8ee 

Secondary address 16 is selected to make a forward 
read; secondary address 17 initiates backward 
reading. This bidirectional ability of the FACIT 
Model 4021 is useful for tape verification. 

Data I/O: 
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PRINT i3:A$ 
HRITE t3:<^l 
INPUT f2,16:AI 
INPUT i2»17:AI 
READ f2:Af 

WBYeee: [255 to write EOF mark] 

(A$ represents your alphanumeric data) 

Alternate delimiters can be used in % mode. This 
sometimes is necessary, because blank tape is read 
as "@" (null character) and can cause syntax errors 
(OLD and APPEND) or fill up target string variables 
very quickly. Ignoring the null characters is ad- 
visable here. 

PRINT f37re:i3p255,e 
INPUT V.2,16:A$ 
OLD 5^2,16: 

Apart from programmed operation, "Off-line" TALK 
ONLY, LISTEN ONLY can be selected with switches 
on the reader and punch respectively. , „, 

Editor's Note: These devices are available in the 
United States using IEEE'488 compatible interfaces 
specified below: 

FACIT Model 4070 paper tape punch with 5137 
FACIT l^odel 4021 (table top) or Model 4022 
(rackmount) paper tape reader, either with 5138. 

FACIT offices are located at: V 

66 Field Point Road, Greenwich, CT 06830 

(203)622-9150 
1167 Chess Drive, Suite A, Foster City, CA 94404 

(415)574-8255 
5415 Jandy Place, Los Angeles, CA 90066 

(213)390-8502 



What It's All About 

By Dr. P. C. Holman 

Offices of Management Information & Institutional Research 
University of Wisconsin— Stevens Point 



By way of introduction, Dr. Holman contributed the 
program "Pie Chart for Hard Copy," Abstract 
^51100-951410. In correspondence with Dr. Holman, 
he suggested that we not withhold any person's 
thinking under the guise of selectivity, whereupon 
we asked him to express his viewpoint to TEKni- 
ques. 

From time-to-time the TEKniques group 
assembles to wax eloquent about progress and 
problems and things philosophical. Sometime dur- 
ing the last bash somebody began thinking, and the 
group wound up debating the place of ideas in the 
greater scheme of things. As usual, nobody agreed. 



Matter of fact as the evening wore on it seems there 
were fifteen ortwenty different views, which isall the 
more unusual since there were only ten or eleven 
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people present. However, the group finally agreed 
that while the topic was essential to the 
philosophical bases upon which TEKniques rests, it 
was too heavy for the cocktail hour debaters plat- 
form. The group voted the usual cop out which is to 
call In one of the longhairs from the halls of academe 
and have him knock out a couple of definitive 
paragraphs. They immediately contacted me 
because I work cheap, I rarely get the corporation in 
too much trouble, and if somebody comes up with a 
topic that really intrigues me I work for nothing, 
which seems to bring no end of joy to the corporate 
treasurer. It turns out that "ideas" is an absolutely 
fascinating subject. Follow the thread of logic and 
see if you don't agree. 

Ideas are insidious things that are rarely in the 
cataclysmic thunderclap category. Rather, Ideas are 
more like the drip of water slowly creating new land 
forms. Itseems tomethatourcompartmentalization 
of the development of mankind into stone age, iron 
age, industrial revolution, and now the second 
industrial revolution which Is the age of the com- 
puter, is much too abrupt and does not reflect the 
way mankind really progresses. The correct basis 
for analyzing and assessing progress should be the 
analysis of the idea continuum. It's interesting that it 
is very difficult to find idea plateaus, or to find sharp 
divisions where one set of ideas was replaced by a 
new set. Ideas are more like money drawing interest. 
Nothing very dramatic ever happens but the sum 
keeps slowly increasing. The real task is to keep 
adding to the principal. 



If one thinks about the mostdynamic nations and 
groups of people one concludes that the amount, 
variety, and flow of ideas is the outstanding 
denominator. The nations and groups that have the 
highestquality of thought and life, that which we call 
culture and civilization, are those that have not only 
the best but also the most ideas. One can easily 
observe that the most advanced people also have the 
most diverse and greatest quantity of methods of 
communication. All of the magazines, television, 
radio, journals, newsletters, and so forth are not just 
entertainment. Rather they are purveyors and 
transmitters of ideas. As ideas are sufficiently 
developed and expanded they are put into 
categories and special category media, such as 
newsletters, are dispersed. That mankind is able to 
find ways to bring so many ideas to those who can 
benefit is an outstanding characteristic of the 
species. Nothing else man does or will ever do can 
match what the sharing of Ideas does. Anybody who 
doubts the power and value of ideas need only 
contemplate what our world would be like if all ideas 
suddenly ceased. Ideas are imagination, and im- 
agination Is the sun that shines within man. The 
most advanced groups have always found ways to 
share ideas and, consequently, each person learns 
from others. This is what TEKniques is all about. 
Each of us has two obligations; to learn and to 
contribute. TEKniques is the vehicle that permits us 
to honor those obligations. ^, . ; , ^_^-,^. 

The editor couldn't have said it better and will strive 
to minimize the use of the blue pencil on programs 
or articles. Let us hear from you. 
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^ EDITOR'S NOTE 

For the Novice 

Many 4051 users are inexperienced pro- 
grammers. If you fall into this category, you are 
probably painfully aware of how much time can be 
lost from the omission of some minor detail from an 
instruction manual or training session. To aid those 
of us who are not well versed in "standard program- 
ming practices," TEKniques is adding a new feature 
titled "BASIC BITS". Some of the program tips 
included here may seem excruciatingly obvious to 
experienced programmers, but we hope they will 
eliminate some hiccups for novice 4051 program- 
mers. If you've discovered any "BASIC BITS", 
please send them in, no matter how simple or 
obvious they may seem. 

Program Catalog Available 

The 4051 Applications Library catalog of 
abstracts was mailed out with the last issue of 



TEKniques. It describes programs in the Library 
contributed through May. If you did not receive one, 
write Tektronix, Inc.; Information Display Group; 
P.O. Box 500; Group 451 ; Beaverton, Oregon 97077. 

Have You Filled Out Your 4051 
Applications Library Membership 
Card? 

in an effort to keep our mailing list current, we 
generally remove names from the TEKniques mail- 
ing list after four months if we don't receive a 4051 
Applications Library Membership card. So if you 
haven't filled out a membership card yet, take a few 
moments and complete the card included in this 
issue of TEKniques. If you have a change of address, 
filling out a new membership card is a convenient 
way of informing us of the change. h; gi :irijf^i 



Camera, Action . . . CUT! 




We goofed. Will Gallant's "Animation" article in 
TEKniques No. 6 referenced a sample program 
suggesting a general approach for creating graphic 
Images to be filmed without the need to have an 
operator on hand. Unfortunately, the program was 
omitted, so here it is along with an illustration. We 
apologize. 

189 IHIT 

110 SET DEGREES 

128 DATi^ -25,0,59,8,-59,-25,50,9,-50,9 

138 DIM X<5>,Y<5) 

148 READ X V 

150 REM ROTATE A BOX THRU 10 REUOLUTIOHS 

168 FOR 1=1 TO 19 

178 FOR J=0 TO 369 STEP 3 

180 ROTATE J 

190 MOUE 65,50 

200 RMOUE Xvl>,Y<l> 

210 FOR K=2 TO 5 

228 RDRAW X<K>,Y<K> 

230 NEXT K 

240 COPY 

258 REM ALLOW FOR SLOW SHUTTERS 

260 FOR S-1 TO 100 

270 NEXT S 

2S0 REM ERASE THE SCREEN AND REORIGIN 

25'0 FOR L = l TO 8 

300 PAGE 

310 NEXT L 

320 NEXT J 

330 NEXT I 

340 END 

Note that after the COPY command in line 240, 
the screen is erased eight times. This erase loop is 
necessary because of the automatic origin shift in 
the 4051. It is recommended that this feature not be 
disabled. The total time to complete this erase loop 
is only 6 seconds, which doesn't add much to your 
pre-frame shooting time. t tg!i n,nL,pcri 
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Using The POINTER Command In 
Interactive Programs 

By Ken Cramer 

When programming interactive applications on 
the 4051, it is sometimes desirable to input a 
character without it being echoed to the 4051 
display, or to have the program respond to the 
typing of a single character, rather than a character 
followed by a carriage return. 

You can use the POINTER command to ac- 
complish both these operations as the following 
contrasting examples demonstrate: 

Standard Method: 

100 PRINT "Do you war^t instruc tioT^s ? (Y or N)" 

110 INPUT A$ 

115 A$=SEG<Af , 1,1) 

120 IFCfil^-V) or (f^tm"^') THEN 288 

130 IF<AI«-N") or <AI«-n") THEN 158 

140 GO TO 100 

150 

Using POINTER: 

100 PRINT "Do you want instruc tions ? <Y or N)" 

110 POINTER X,Y,2$ 

120 IF Z«»"Y- OR Zf-'-y" THEN 208 

130 IF 2f«'N- OR Zf--^" THEN 150 

140 GO TO 100 

150 

In this particular use of the POINTER command, 
the returned X, Y values are of little consequence 
unless you have a 4952 Joystick. 

The advantage in using the POINTER command 
is that it requires only one keystroke to respond to a 
question, and no response, which may disrupt the 
picture, is echoed to the screen. Keep in mind the 
absence of a blinking question mark as an input 
prompt and the unavailability of the keyboard 
editing keys to correct typing errors. ^.g.^ ,^-,,^^.,, 

Renumbering Programs 

By Will Gallant 

Once you have written and debugged a program, 
it is often desirable to renumber the program so that 
the subroutines begin on hundreds or thousands, A 
typical technique for renumbering a program is to 
renumber and list, renumber and list, etc. This 
procedure can be simplified considerably using a 
GOTO ... IF ... statement. 
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The first step in this simplified renumbering 
procedure is to list the program and record the line 
numbers of the first statement of each subroutine. 
Next, add a GOTO statement in an unused space 
prior to statement 100. In this example, assume that 
subroutines start at lines 230, 380 and 610 and that 
you would like them to start at 1000, 2000 and 3000. 
The initial GOTO statement would then be: 

1 CO TO X OF 238,388,619 

Now call a RENumber operation followed by a 
command to redisplay the GOTO statement (press 
the RECALL LINE edit key to redisplay line 1). 

REN 1688,18,238 
I CRECALL LIHE3 
1 GOTO X OF 1888,1158,1389 

After each renumber operation, the line numbers in 
the GOTO statement are automatically updated. 
The new line numbers can then be used in the next 
renumber operation. 

FEH 2888,18,1159 

1 CRECALL LIHE3 

1 GOTO X OF 1898,2888,2239 

REH 3988,18,2238- 

1 CRECALL LIHE3 

1 GOTO X OF 1988,2899,3999 

This procedure is very efficient since you only have 
to redisplay one line after each renumber operation 
rather than relist the whole program. k^'\-~.-: >^. 



Truncation Utility 

By Judy Peterman 

This program was originally offered as one of the 
early programs in the 4051 Applications Library. It is 
so short, however, that we decided to provide it to 
you as a program tip. 

The program illustrates a one-line process that 
allows the user to truncate a number to a specified 
numberofdigits, not the number of digits to the right 
of the decimal point, but the total number of 
significant digits. It can be used to avoid round-off 
error or to prepare for a PRINT USING format. 



188 INIT 

lie PRINT 'LHOH HAMY DIGITS OF ACCURACVI 

128 PRINT • 00 YOU HANT" 

139 INPUT 

159 PRINT • ENTER • "I 

169 INPUT F9 

179 IF F8-9 TNEN 199 

188 F9-INT<l9t<D+INT<-LCT<ABS<F8))))tF8*8.3)/l8t<;D*INT<-LCT<ABS<F8)))) 

198 PRINT F9,F8 

289 GO TO 138 



4051 Applications Library 
Program Abstracts 

Documentation and program listings of these 
prog rams may be ordered for $15.00 each. Programs 
will be put on tape for an additional $2,00 handling 
charge per program and a $26.00 charge for the tape 
cartridge. (The program material contained herein is 
supplied without warranty or representation of any 
kind. Tektronix, Inc. assumes no responsibility and 
shall have no liability, consequential orotherwise, of 
any kind arising from the use of this program 
material or any part thereof.) 

Please use the Applications Library Order Form. 
Order forms are included in the Membership Packet 
and are available from your local Tektronix Sales 
Engineer. ^^^ _ ^.^ 

ABSTRACT NUMBER: 51/00-6102/0 

Title: Hewlett-Packard Interface Package 

Author: Peter O. McVay, Program Specialist 
Norfolk Public Schools, Norfolk, VA 
Memory Requirement: 16K 
Peripherals: Option 1 

This program consists of 13 files. File number 1 
contains a menu of the 12 routines in the package. 
The menu also provides operation control for the 
routine. The entire interface package allows you to: 

1. Log on and off the HP2000 series computers, 

2. Interface in terminal mode, 

3. Restore and store HP programs on the 4051 
tape system, 

4. Store and restore HP files using HP utility 
programs $FCOPY and $EDITOR, 

5. Connect the Tektronix 4051 to any RS-232 
ElA-compatible hardcopy terminal for listing 
or printing (terminal may be used as a line 
printer only). 

The system is internally documented, and main- 
tains continuous control of the two computers. 
Pressing Overlay Key 5 (RETURN TO BASIC) 
returns control to the MENU. 

ABSTRACT NUMBER: 51/00-8012/0 

Title: Leroy Character Generator 

Author: Mark Mehall 
Memory Requirement: 16K 
Peripherals: 4662 Plotter (Optional) 

This set of routines draws alphanumeric 
characters and special symbols on a 4051 or 4662 in 
a style similar to the Leroy character set. The 
characters and symbols can be any size or angle, 
and may be positioned at any location on the screen 
or plotter surface. Since the routines do not interfere 



with the user's window and viewport, they can be 
used with existing programs for annotation. Labels 
can be placed on axes, points can be indicated, and 
legends can be added to graphs. There are 128 
possible symbols, including upper and lower-case 
letters, numbers, sixteen centered symbols, and 
special characters. The routines also offer sub- 
scripts and superscripts, underlining, italics, tab 
settings, backspace and carriage return functions. 




MARKING AND RE-MARKING 

A new tape? Stretch it out before MARking it. 
Insert it in the 4051 and type FIN 2 (any # except or 
1). The tape will be searched to the end and this 
message wiii appear on the viewport: 

FIM2 

HAG TAP€ ERROR IM IHHEDIATE LIHE - HE8SAGE NUMBER 54 



Press the REWIND button and the tape will be 
ready for use. ESI^ 

Any files following the file on a tape that has been 
re-MARked will be lost. Example: You have 5 files f 
saved on a tape. File #2 is too small for the revised 
program and you MARk it again enlarging it. As a 
result, files 3, 4 and 5 are lost and cannot be 
recovered. ise^^ 

Herman Kan of Boeing suggests when you are 
developing a program to use the first file on a tape 
and mark it the full memory capability of your 4051. 
Using File#1 willsave you the timeofsearching over 
other programs for the file on which you're working. 



Software Notice 

As a customer service TEKNIQUES publishes Software Notices submitted to it for this 
purpose. No evaluation or endorsement by TEKTRONIX, INC. of software covered by 
these Software Notices is implied by such publication. TEKTRON'%^, INC. expressly 
disclaims any obligation of warranty or support relating to software covered by 
Software Notices. 

M6800 Cro«s-Au«nnb«er/Editor 

For us6 in M6800 microcomputer system development. Program is written in 4051 Tek 
BASIC and requires a 4051 with 32K of memory. Source statements written in Motorola 
Assembly language are converted to M6800 machine code. Program has nearly all the 
featu res of both Motorola's Go-resident assembler and their cross-asseaiblers including 
automatic hex, octal and binary conversion. Program also automatically saves the 
entire assembly listing in the first available file on a data tape. Can be modified to run on 
machines with less than 32K memory. Includes loader and dissassembler. Buzz Hill, 
Eyedentify. Inc.. P.O. Box 2006, Longview, Washington 98632, (206) 423-3281. 
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